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ABSTRACT 

The purpose of the Ohio College Library Center (OCIX:) 
computerized regional library system is to provide an on-line system 
that makes av2illable to faculty and students in individual colleges 
and universities the library resources throughout a region, while at 
the same time decelerating the rate of rise of per-student library 
costs. The research and development culminated in the successful 
implementation of an on-line union catalog and shared cataloging 
system. The final report of the project is LI 004 422. This document 
contains appendix twenty-four. The Ohio College Library Center 
Program/Subroutine Dociimentation; Master Data Base Update (MDBUPD) . 
The program MDBUPD (Master Data Base Update) is used to add the 
records from the weekly MARC tapes to the existing data base. This 
program takes a record that is in MARC format, checks the entries for 
validity, and converts it into the current bibliographic data file 
format. The program assigns an OCLC number to new records and adds 
them to the data base. MDBUPD replaces corrected or revised records 
and deletes unwanted records. It also returns various statistics. 
(Other appendices are LI 004 423, LI 004 424 and LI 004 426 through 
LI 004 428.) (Author/SJ) \ 
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PROGRAM: MDBUPD 



OCLC PK06RAM DOCUMENTATION 



I . Overview 

The program MDBUPD (Master Data Base Update) is used to 
add the records from the weekly Marc tapes to the existing data 
base. This program takes a record that is in MARC format, 
checks the entries for validity, and converts it into the 
current bibliographic data file format. The program assigns 
an OCLC number to new records and adds them to the data base. 
MDBUPD replaces corrected or revised records and deletes 
unwanted records. It also returns statistics as to the number 
of records added, replaced, deleted, rejected, and so on. It 
also returns 3 couies of the error messages on paper and 1 
copy on an output' tape. The records that could not be processe 
for one reason or another are written on the deferred tape. 



CAUTION: MDBUPD is not to be run during online processing. 
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PROGRAM: MDBUPD 



II. DATA FLOW 




MDBUPD 






New 
Data 
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kgecorjli 



3 copies 
of results 
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PROGRAM: MDBUPD 



III.l 

III. SUMMARY or INPUT S OUTPUT 
A. MARC TAPE (INPUT) 



Volume 


File 




V 




r 

EnJ of 






Header 


Header 


T 


File of Records 


T 


File 


T 


T 


Label 


Label 


M 


for Monographs 


M 


Label 


M 


M 



TM= Tape Mark (MARC Manual""-- p. 3) 



1. Volume Header Label — MARC Manual 
Page 2 

2. File Header Label — MARC Manual 
Page 2 

3. File of Records for Monographs: 



24 



Leader 


Record Directory 




Control 


Variable 






1 


Fie Ids 


Fields 



a. Leader — Page III. 3 

b. Record Directony: 



3 7 // 






Starting ' 


Tag 


Length 


Character / 






Position 



ERIC 



1. MARC MANUAL Vol. 1 
Books : A MARC Format 



Fourth Edition April 197( 
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PROGRAM: MDBUPD 



Name of Record 
Directory Data Element 



No. of 

Char's 



Tag 

Length 

Starting 



Char. Pos 



3 
5 



Control fields 



Data 
Element 1 



Data 
Element 2 



Data 
Element 3 



MARC Manual - Page 30 - 39 



d. Variable Fields 
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r-l 
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Data 
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Data 




(i) 
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Element 1 


<^ o 


Element 2 
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CO 
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MARC Manual - Page 40 - 70 



End of File Label - MARC Manual - Page 3 
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File Name 



Record Layout 
MARC RECORD LEADER FORMAT (INPUT) 



Record Name 



Record Type - ( ) Card ( x) Tape ( ) Disk ( ) Other_ 



File Organization SEQUENTIAL Record Size Block Size 

General Description 



FIELD NAME AND DESCRIPTION 



FIELD 



POSITION LENGTH FORMAT 



RECORD LEADER 

Logical R ecord L ength 

Record Status (MARC Manual 
Page 26) 

Type gf Record (MARC Manual 
Page 26) 

Bibliographic Level (MARC Manual 
Page 26) 

Blanks 



0-4 



Indicator Count (MARC Manual 
Page 275 



7 

8-9 

10 



5 

1 

1 

1 
2 



ASCII 

ASCII 

ASCII 

ASCII 
ASCII 

ASCII. 
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Record Layout (Cont) 



File Name MARC RECQRn FORMAT 



Record Name 



FIELD NAME AND DESCRIPTION 



FIELD 



Sub fie Id Code Count (MARC Manual 
PagT 27) 

Base Address o£ Data (MARC Manual 
Fage r?) 

Encoding Level (MARC Manual Page 27 
Blanks 

Entry Map (proposed - MARC Manual 
?agF^7) 



POSITION 



11 

12 - 16 

17 
18 - 19 

20 - 23 



LENGTH 



5 


ASCII 


1 


ASCII 


2 


ASCII 




ASCII 



QRMAT 



ASCII. 



MARC Record Leader p^^^ , nf • 

Application Format Date U2JJ22 Page JL_ X 

Procedure Drawn by T. Rpnkptt 



^.ogical R^ord Length 



Record Status 



Type 6 
Record 



^-4 



Level 



Rlank-s 



Indicator 



Sub field 



12 



Base Address of Data 



16 


17 


] 


.8 


1 


Encoding 
Level .... 


Blanks J 
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Record Layout 

File Name RTRunnRAPMTr data FTI.E 
Record Name RTRunnRAPHir RrroRn 

Record Type - ( ) Card ( ) Tape (x) Disk ( ) Other__ 

IBM Variable 

File Organization riv Format R ecord Size uf^-Riuu Block Size riuu 
General Description nn.r internal prnnpeising format r>f thp MART TT 
Bibliopranhic Record. Access is either ssqiipntial or randnm. 



FIELD NAME AND DESCRIPTION 


POSITION 


LENGTH 


FORMAT 


RECORD LEADER 








Logical Record Length 


0-1 


2 


Binary 


Record Status Character (M^.C 
Manual - Page 26) . 


2 


1 


EBCDIC 


Encoding Level (MARC Manual - 
Page 27) 


3 


; 1 


EBCDIC 


Leader Length - byte size of 
leader including terminator 
(X '^D') 




1 


Binary 


Type Index - index into a table of 

Malei'idl Type Indicator Codes 

(See Cataloging on a CRT 
Terminal - Page 32). Note that 
the zero entry is used. 


5 


Upper 
4 bits 


Binary 



Ill .7 

Page 2 

Record Layout (Cont) 
File Name BIBLIOGRAPHIC DATA FILE 
Record Name BIBLIOGRAPHIC Rt:CORD 



FIELD NAME AND DESCRIPTION 




FIELD 






PObll lUN 




FORMAT 


Bibliographic Level Index - index 
into a table of level codes 
(See Cataloging on a CRT 
Terminal - Page 32). Note that 
the zero entry is used. 


5 


Lower 
U bite 


Binary 


Reserved 


6-7 


10 Bit 


3 Binary 


Variable Control Field Length - 
Word length of field between 
supplement number and suffix 
character in LC card number. 


7 


Lower 
6 bits 


Binary 


OCLC Number 

• • 


8-11 




Binary 


Date Entered 
Year 
Month 
Day 


12 
13 
lU 


1 
1 
1 


Packed* 
Packed* 
Packed- 


Type of Publication Date - 
Description of contents of 
Publication Date fields (See 
MARC Manual pp. 32-3U). 


15 


1 


EBCDIC 


Publications Dates 
Date n 
Date #2 


16-17 
18-19 


2 
2 


Packed* 
Packed* ' 


Country of Publication - First two 
characters of MARC field (See 
MARC Manual pp. 35, 290-318). 


20-21 


2 


EBCDIC 


Illustration Code Indexes • Four 
U-bit indexes into the table of 
Illustration codes (See MARC 
Manual pp. 35). Note that the 
zero entry is used to indicate 
an invalid code was received 
and that entry contains a 
blinking blank . 


2-2-2 3 


2 


Binary 


* Packed data is numeric data 









which has had the upper four 
bits of each numeral removed and 
has been packed two digits per byte. 



III. 8 



Record Layout (Cont) 
File Name BIBLIOGRAPHIC DATA FILE 
Record Name BIBLIOGRAPHIC RECORD 



Page 3 



FIELD NAME AND DESCRIPTION 



FlELt) 



POSITION 



LENGTH FORMAT 



Form of Content Code Indexes - fouij 24-25 
4-bit indexes into a table of 
codes describing the form of 
work (See MARC Manual pp. 36-37] 
Note that the zero entry contair 
a blinking blank to indicate an 
invalid code was received. 



Binary 



Intellectual Level Index - index 
into a table of intellectual 
level codes (See MARC Manual 
pp. 36). Note the zero entry 
is used to indicate that the 
input code was invalid and con- 
tains a blinking blank. 

Format Reproduction Code Index - 
Index into a table of codes 
describing the type reproductior 
if any. Note the zero entry is 
used to indicate that the input 
code was invalid and contains a 
blinking blank. 

Indicators 10 thru 15 - bit 
switches to indicate the 
MARC indicators described in th€ 
MARC Reference Manual (pp. 37- 
38, par. 10-15). Bit values are 

Bit 0 - REserved 

162 - Government Pub. Ind. 

3.- Conference Pub. Ind. 

4 - Festschrift Ind. 

5 - Index Ind. 

6 - Main Entry Ind. 

7 - Function Ind. 

Biography^ Code Index - index into 
a table of biography codes (See 
MARC Reference Manual pp. 33). 
Note that the zero entry cont-» 
ains a blinking blank to indi- 
cate an invalid code was 
received. 



26 



Upper 
4 bits 



Binary 



26 



Lower 
4 bits 



Binary 



27 



Binary 



28 



Binary 
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Record Layout (Cont) 
File Name BIBLIOGRAPHIC DATA FILE 
Record Name BIBLIOGRAPHIC RECORD 



Page U 



FIELD NAME AND DESCRIPTION 



ERIC 



I 
I 
I 



f 



POSITION 



Modified Record Indicator Index - 29 
Index into a table of codes 
describing the type of change. 
Note that the zero entry 
contains the blinking blank 
character to indicate a code 
was received in error. (See 
MARC Manual pp. 38-39 )• 

Catalog Source Index - index into ' 29 
a taole of codes to describe 
other sources of catalog records 
(See MAR.C Manual - page 39.) 
Note that the zero entry contains 
a blinking blank to indicate an 
error code was received. 

Language Index - index into a tabl4 30-31 
of language codes to describe 
the text of the data. Although 
the codes are not arranged 
exactly as shown, see the manual 
"Cataloging on a Cathode Ray 
Tube Terminal" pp. U6-52. 

LC- Card Number 

Prefix , 
Year Tart 
Number Part 



Supplement number 

Length of 1st Author Substring 
The number of bytes to use for 
the first author substring 

Displacement of 1st Author Substri 



yte displacement to the 1st 
author substring from end of 
leader 



Packed data is numeric data 
which has had the upper four 
bits of each numeral removed 
and has been packed two digits 



32-3U 
35 
36-38 
39 



iigU2-»+3 



LENGTH FORMAT 



Upper 
U bits 



Lower 
U bits 



3 
1 
3 
1 



Binary 



Binary 



Binary 



EBCDIC 
Packed* 
Packed* 
EBCDIC 

Binary 



Binary 
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Record Layout (Cont) Page 5 

File Name pjpT.TnnRAPH T'" ^^^'^ ^tt.p 
Record Name ftf inr^RAPHT P RrrnRD 



FIELD 



FIELD NAME AND DESCRIPTION 


POSITION 


LENGTH 


FORMAT 


Length of ?nd Author Substring 
The number of bytes to use for 
the <?econd author substring. 


44-45 


2 


Binary 


Displacement of 2nd Author 

Substring 

Byte displacement to the 2nd 
author substring from end of 


46-47 


2 


Binary 


Length of Title Substring 

The number of bytes to use for 
the title substring. 


48-49 


2 


Binary 


Displacement to Title Substring 
The byte displacement to the 
title substring from the end of 
the leader- 


50-51 


2 


Binary 


Pointer to holdings list. 


52-55 


4 


Binary 


Institutional Holdings Bits 

Bit switches indicating holdings 
for an institution. A one 
indicates holdings, a zero 
indicates no holdings. 


56-71 


16 


Binary 


LG Suffix 

A variable length character 
string which may be absent. 
Displacement to suffix equal to 
UO + 4*n where n equals the 
binary value of bits 2-7 of byte 
#7 of leader. Length of suffix 
is equal to the leader length, 
byte <lfU, minus the displacement 
to the suffix minus one. 


Variable 


Varia- 
ble 


EBCL- 


Leader Terminator 

X "FD" that follows the suffix 
to indicate the end of the 
leader. 


Variable 


1 


Binary 
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Record Layout CCont) 
File Name BIBLIOGRAPHIC DATA FILE 
Record Name BIBLIOGRAPHIC RECORD 



FIELD NAME AND DESCRIPTION 



FIELD 



POSITION LENGTH 



FORMAT 



VARIABLE FIELDS 

The following fields of the record 
are repeated for as many times as 
there are bibliot^raphic elements. 
The fields are variable in the 
data that they contain and the 
length of each data item. The 
elements have the following format: 

Tag - element field descriptor 
number ' 

Element Length - length of 
element including tag. 

Subfields and Indicators - the 
remainder of the element 
fields are identical to the 
MARC format with the 
exception that the ^$a* 
subfield code is deleted if 
this field is present and the 
data begins immediately 
following the indicators .* 
•'ihe code is a X'FD' for ena o 
subfield and X'FE' for end of 
record. 



** These value are the relative 
positions within the variable 
fields . 



0-1 ^* 
2-3 ** 
4-n ** 



Binary 
Binary 
EBCDIC 



* Packed data is numeric data 
which has had the upper four 
bits of each numeral removed 
and has Ibeen packed two 
digits per byte. 
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Record Layout 
File Name RiRi.Tn r.PAPMTr data fti.f 
Record Name AirmnR tttif p, tttip nNi Y INDEX (AT S TO) 

Record Type - ( ) Card ( ) Tape 0(30 Disk ( ) Other 

File OrganizatioriRandom ^Record Size 12-bytes B lock Size 1020 

General Description This file is used to access the required 

Bibliographic Recordfsl from the input Author-Tit le Kev fS.Sl 

which is hasheg to a disk address within the file. If the input 



key and the title key within the record agree, the index points to 
one of the possible matching BIB records. 



FIELD NAME AND DESCRIPTION , 


"PbSll'lON 


LENGTH 


FORMAT 


Chaining Flag - Bit flag indicating 
end of chain. 

0 " Not last in entry chain 

1 - End of entry chain 


0 


Bit 0 


Binary 


Master BIB Record Present Flag - Bit 
flag indicating whether BIB 
record is present or absent (delet- 
ed) 

0 ■ Master record deleted 

1 ■ Master record present 


0 


Bit 1 


Binary 


Bibliographic Record Address - 30 bit 
disk address of Bibliographic . 
record. 


0-3 


30 Bits 


Binary 


Author-Title § Title Only Key - 
String of six EBCDIC characters 
which make up the 3,3 key of the 
bibliographic record pointed to by 
the index. 


4-9 


6 


EBCDIC 


Reserved 


10-11 


2 


i-- 
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Record Layout 
File Name ntnt rnnpapntr hata ft t f 

Record Name f^^^r » TMnrv (nrir) • 

Record Type - ( ) Card ( ) Tape CX}0 Disk ( ) Other 

File Organization Random ^Record Size 8-bytes B lock Size 

General Description This file is used to access the required 

Bibliographic Recordfsl from the input OCLC # Kev which is hashed 
to a disk address within the file. 



FIELD NAME AND DESCRIPTION 



FIELD 



't>OSITION I LENGTH FORMAT 



Chainin 



ojoa^ - 
f chain. 



- Bit flag indicating 



end 01 

0 ' Not last in entry chain 

1 " End of entry chain 

Master BIB Record Present Flag - Bit 
flag indicating whether BIB record 
is present or absent (deleted) 

0 = Master record deleted 

1 " Master record present 

Bibliographic Record Address - 30 
bit disk address of liibliograph i c 
record. 

Reserved 



0-3 



4-7 



Bit 0 



Bit 1 



Binary 



Binary 



30 Bits 



Binary 
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Record Layout 
File Name BIHl.IOGRAPIITr DATA FILl- 
Record Name lirrauy OF C0MnRr5;y; tar d NO. INDEX (LCCN) 

Record Type - ( ) Card ( ) Tape jcx^ Disk ( ) Other 

File prganization Random Record Size i2-bvtes B lock Size 1Q2Q 



General Description This file is used to accef;s the required Bihlio- 
graphic Recordfsl from the input LCCN kev which is has hed to 



a disk address within the filc> If the input kev and the 
title key within the record agree > the index points to one of 
the possible matching BIB records. _ 



FIELD NAME AND DESCRIPTION 



FIELD 

POSITION I LENGTH IFOHMAT 



Chaining Flag - Bit flag 
indicating end of chain. 

0 = Not last in entry chain 

1 - End of entry chain 

Master BIB Record Pre s ent Flag - 
Bit flag indicating whether 
BIB record is present or ab- 
sent (deleted) 

0 = Master record deleted 

1 « Master record present 

Bibliographic Record Address - 
50 Dit disk address of Biblio 
graphic record. 

LCCN Key - Library of Congress 
Card Number Prefix 

L>C. Card Number Part 

L. C. Supplement 



Bit 0 



Bit 1 



Binary 



Binary 



0-3 

4-6 

7-10 
11 



30 Bits 



Binary 

EBCDIC 

Packed 
EBCDIC 
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IV. FUNCTIONS 

A request is made on the OC device to mount the MARC 
tape on 9TA80 and the output tape for deferred records on 
9TA81. If Sense Switches are '0' the deferred tape is 
positioned past the last tape marks. If Sense Switchs are 
not 0, a reply is requested from the operator. A reply 
of 'x' will abort the job. A reply of 'NEW indicates that 
the deferred tape is new and to start processing. A reply 
of anything other than 'x' or 'NEW' will cause the request 
for a reply from the operator to occur again. An area 
called 'RESULTS' is assigned on the RAD for error and 
warning messages. 

After initialization, the r^rogram 'READMARC' reads 
a record from the MARC tape. If this record is the volume 
header label or the end of file label, it is converted to 
EBCDIC and written on the deferred tape. 

The routine 'CASBI' is used to convert fields to binary, 
the result being returned in Rl. The routine 'CASEB' is 
used to convert fields to EBCDIC, the address of the result 
being returned in the third word of the parm list. 

Tne base address of the data and the record length are 
picked up from the MARC leader and converted to binary. 
Positions 6-11 of the leader are verified as being 'am 22'. 
Positions 18-2 3 are verified as being all blanks. 

The record directory is taken from the MARC tape and 
a corresponding binary directory is built for the biblio- 
graphic record at location 'DIR' , where each field has a 
2-word entry: 

Word #0 tag (1 byte), BA( field) 
Word #1 length of field 

The record status is now checked. If it is 'D' the 
record is to be deleted. This is accomplished by changing 
the Encoding level to 'J' and skipping the error checking 
and formating of the record. Otherwise, the bibliographic 
record leader is built taking the data from the leader, 
field 001 and field 008 of the MARC record. The next avail- 
able OCLC # is found and is put into the leader. Each data 
entry is converted from ASCII to either EBCDIC or PACKED, 
is checked for validity using the tables in MDBUPD, and is 
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moved to the appropriate position in the leader. There are 
2 instructions indicated in the ^BLDLEADR* section of the 
program listing which must be changed if the last 8 control 
fields are to be added to the leader. 

The length of each field and the indicators are checked 
for validity against the tables. Any invalid characters 
are reported as errors and replaced with blinking blanks 
(X'77»). If the field begins with a *^a* subfield code,^ 
the subfield code is deleted, and the rest of the field is 
converted to the proper format (either EBCDIC, binary or 
packed), checked for valid characters, and moved to the 
output buffer. Then the subfield codes are checked for 
validity using the table *SFLD*. Each field is moved in this 
manner until an end of record indicator is encountered (X*FE*). 

If there were any errors in the record, the error message 
and the record are written on the RAD and printed in the format 
as shown in APPENDIX B. All Warning messages are also written 
on the RAD. The subroutine ^INDEXER* is then the author- 
title key, and the LC card number key. The subroutine 'SEARCHER' 
performs several checks on these keys. This MARC record is 
checked against the other existing MAPsC records. If the LC 
card numbers match, the new MAR^" is logged as a duplicate and 
is entered on the deferred tape. The MARC record is checked 
against the records input by the member libraries (those with 
encoding level ='I'). If all 3 keys are equal, the holdings 
from the data base record are added to the new MARC record 
and the data base record is deleted but its OCLC# is kept. If 
a weekly record that has a 'D' (delete) status has the same 
LCCN as an old MARC record, the old MARC record is deleted^ 
as long as it has no holdings. If it does have holdings, its 
encoding level is changed to 'I* and it remains on the data 
base. The new MARC record is checked against the old MARC 
records which have an encoding level of 'J' (deleted). 
If the LC card numbers are equal, the old data base record 
is replaced with the new MARC record. Then the new MARC 
record is checked against the user data base records and the 
MARC data base records which have an encoding level of 'J'. 

If the card numbers are not present or are not the 
same, but the title key and the author-title key match, 
the record is written on the differed tape and awaits human 
intervention. If the new MARC record has been proven not 
to be a duplicate, the record is either written at the end 
of the Bibliographic file, or is written in an available 
slot where another record had been deleted. 
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Before reading the next MARC record, a check is made 
to detcrmino if the previouG record was a replacemen record. 
If it was, the LC card number and the OCLC number of the 
Marc record and the OCLC number of the Data Base record are 
punched on the card punch. If the previous record was the 
last record on this weekly tape, the Summary statistics 
are written on the RAD file. 
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k ^^^^^^ 




WRITE IT 
ON THE DE- 
FERRED 
TAPE 




1 




PRINT 

STATISTICS 


1 



BUILD A ^ 
DIRECTORY '! 
OF len's £ j 
OA's of eadi 



^ END ^ 



I field 




YES 



BUILD 

BINARY LEADi 
ER FOR DB 
RECORD 



t 

__1L 



GET NEXT 
FIELD 




DELETE 
i a 



CONVERT 
FIELD TO 
BINARY 



lA 



CHANQE 




ENCODING 




LEVEL TO 


► 


•J' 
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3A 



INVALID N 
HAR'S,- 




NO 



MOVr FIELD 

OUTPUT 

BUFFER 



REPLACE WITI- 
BLINKING 
LANK X'77' 



I 



I 



REPORT 
ERROR 




"-SUBFIE 




NO ^EACHEir 

^Send of 



1 

L, 



REPLACE 
■—►WITH 

BLINKING 
BLANK X'77' 



SET UP 3 
ACCESS KEYSl 
LCCN, TITLE! 
8 AT/TO ! 




NO 



xye; 



y same LCCN 
YES 



NO 



RECORD 
"■«.*™,.. -HOLDINGS 

. YES 



ADD HOLDINGS 

TO WEEKLY 

RECORD FROHI 
DB RECORD 



REPORT 
ERROR 
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4aJ- 



. STATUS 
V= 'd 




)ELETE DB 
RECORD 8 
SAVE OCLC# 





t 

B RECORSl 



NO 



MARC 



I YES 




DUPLICATE 

WARNING 

MESSAGE 



DOES\ YES 
DB RECOR> ► 
^VE 



■Foldings 



DELETE 
DB 

RECORD 



L 



CHANGE DB 
ENCODING 
LEVEL TO 
'J' 

1 



i 



REWRITE 
MODIFIED 
DB RECORD 
ON BIB FILB 



I 
I 



lA 



ERJC 



r 
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5Aj 




IS 

•'THERE A 

RECORD WITH 
SAME 3,3 or 
yes; 3,1,1,1 



© 




ADD HOLDINGJ; 

0 WEEKLY 
IRECORD 



DELETE DB 
RECORD £ 
SAVE OCLC# 



IS THERE y 
AVAILABLE OCL 



Len. of 
weekly ^ len . <^ 
of DB 




YES 



GET A NEW 
OCLC# 



ADD WEEKLY 
RECORD IN 
THIS SLOT 



! ADD RECORD 
1 AT END 



I 
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VI. SOFTWARE INTERFACE 

A. Linkag€. - background linkage with OBM 

B. Parameter List Description - none 

C. Return Codes - none 

D. Other Entry Points - none 

E. OCLC Subroutines Referenced 

CASEB 

CASBI 

MDBUPDLG 

OPENMARC 

READMARC 

CLOSEMARC 

PACK 

UNPK 

$MBS 

$MBSS 

NDX123 

ADDMAST 

RADDMAST 

DELTMAST 

LCCNOOO (Alternate EP,LCCNOOOT) 
INDEXER 
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VII. DESCRIPTION OF SPECIAL STORAGE AREAS, SWITCHES, AND TABLES 

A. Special Storage 
None 

B. Special Switches 
None 

C. Tables 

ECV - This is a table of sub-tables which will set 
up the table of parameters required for the program 
*CBIEB* which will conv^^rt binary data to EBCDIC 
An example of an *ECV' table would be: 

ECVl DATA 0 

DATA,1 5,C* »,C*+SC»-* 

DATA 0 

where the first word is the number to be converted; 
the second word contains the length in bytes to be 
converted, a fill character (usually a blank), a 
plus sign and a minus sign; the third word has the 
byte address of the area where the converted number 
is to go. 

PACK__ The data statements PACK are used 

to generate the parameter list needed for the OCLC 
subroutine *PACK* which is used to convert ASCII 
fields to packed format. A sample statement would be: 

PACK LCC# DATA BA(UNPLCCN) +3,8, BA(PLCCN) +3,0 

The first word gives the address of the field to be 
packed. The second word gives the number of bytes 
to be converted. The third word gives the byte ad- 
dress of where to put the packed field. The fourth 
word is where the condition of the conversion is-^passed. 

CASBI3 . CASBm . CAJBI5 These are data statements 
which are used to set ud the parameter list for the 
OCLC subroutine 'CASBI* which converts a field in 
ASCII format to binary. A sample data statement would 
be: 

CASBI3 DATA 3,0,0 

The first word gives the number of bytes to convert. 
The second word is used for the byte address of the 
field to be converted. The third word is used to 
return the condition of the conversion. 
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DELTPARM , ADDPARM , RADDPARM, RESTPARM, -These are 

data statements which set up the parameter lists 

for the OCLC subroutines DELTMAST, ADDMAST, and RADDMAST. 

A sample data statement would be : 

DELTPARM DATA 0, DBBUF, MASTWORK, ATKEY+2 , DBADDR 

The first half-word is where the status is returned. 
The second word is the word address of the biblio- 
graphic record. The third word is the word address 
of the work area. The fourth word is the word 
address of the returned OCLC entry. The fifth word 
is the word address of the index (for RADDMAST and 
DELTMAST only) . 

MSG TABLE - This is a table of partial text messages 
from which a message will be built. A sample entry 
would be : 

MSGS TEXTC 'FIELD TERMINATOR MISSING IN POSITION' 

PRCS ->This is a branch table of routines that are used 
to check the tag fields for required data and to check 
that the subfields are correct and in the correct sequence 
The index to this table is retrieved from the table 'PRC. 
The calling sequence for this table is: 

LB,R1 PRC,R6 
B PRCS ,R1 

where R6 has the field index obtained from the table 
'TAGS' for this field. 

ERL - and ABL ■ These are tables of procedures that 
set up the FP'l^s and the parameters for printing the 
error messages. These tables are described more 
thoroughly in Section VIII, Part E with the description 
of the procedures 'MSG', 'DEC, 'HEX', and 'MEND'. 

SUL - This is a table of sub-tables which set up the 
parameters for printing the messages concerning the 
weekly tape totals. An example of a sub-table would 
be : 

SULl DEC ECV6 

MSG MSG42 
MEND 

The procedure 'DEC' sets up the parameters for the 
conversion to EBCDIC. The procedure 'MSG' causes 
the message to be copied. The procedure 'MEND* indi- 
cates the end of the parameter list. For a more 
thorough description of the procedures, refer to 
Section VIII, Part E. 
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TAGS - This is a talle of valid tag indicators. The pro- 
cedure *DTAG* will cause these entries to expand 
to a table with sm byte entries. The procedure 
*DTAG* is described more thoroughly in Section VIII, 
Part E. Each tag from 001 to 840 has a corresponding 
byte entry which can be found by using the tag num- 
ber as an index. The byte entry in the table will 
be used as an index for that field into all the other 
tables. This byte will be called the field index. 
If the corresponding byte is 0 when the table is 
indexed by a tag number, that tag is invalid. A 
partial expansion of the table would be: 



TOOl DATA,1 1 

DATA,1 0 

DATA,1 0 

DATA,1 0 

DATA,1 0 

DATA,1 0 

DATA,1 0 

TO 08 DATA,1 2 

DATA,1 0 

DATA,1 0 

DATA,1 0 

DATA,1 0 

DATA,1 0 

DATA,1 0 

TO 15 DATA,1 3 



In other words, the first entry is a *1* (field 
index for the 001 field); the eighth entry is a '2' 
(field index for the 008 field); the fifteenth entry 
is a *3' (field index for the 015 field), and so on. 
All other entries are *0* to indicate an invalid tag. 
This byte (the field index) is then stored at the 
beginning of the field *s entry in the directory. 

BTAGS - This is a table which contains the half-word binary 

value of the tag value. This table is indexed by the 
field index which was found from the table *TAGS*. 

MINL *• This is a byte table whose entries indicate the mini- 
mum byte length acceptable for each tagged field. 
This table is indexed by the field index for this 
field. The 001 and 008 fields are handled separately. 

INDl - This is an indexable byte table of byte displacements 
into the *NL* table. This table and the *NL* table are 
used to verify and edit the first indicator for each 
individual field. The byte displacement into the 
*NL* table for a particular field is picked up from 
this table using R6, the field index. If the byte 
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displacement code for a field is 'FBL', the first 
indicator should be a blank and a blank is loaded 
into the record in the first indicator position. 
If the byte displacement code for a field is *PBL' 
and the first indicator is a blank, it is replaced 
with a blinking blank. The indicator for fields 
001 and 008 are handled separately. 

IND2 This is an indexable byte table of byte displace- 
ments in the 'NL' table. This table and the 'NL| 
table are used to verify and edit the second indi- 
cator of each individual field. This table is set 
up the same as the table *IND1*. 

SFLD This is an indexable byte table of byte displace- 
ments into the table 'AL* . This table and the table 
'AL' are used to verify the sub field codes for each 
individual field. The byte displacement into the 
table 'AL' for a particular field is picked up from 
this table using R6 the field index. The subfield 
codes for the 001 and 008 fields are handled separ- 
ately. 

PRC This is an indexable byte table of word indexes 
~* into the branch table 'PRCS'. This table and 

the table 'PRCS' are used to verify and edit the 
required data for each individual field. The word 
index into the table 'PRCS* for a particular field 
is picked up from this table using R6 , the field 
index. The data for the 001 and 008 fields are 
handled separately. 

MINCNT An indexable byte table whose entries indicate the 
minimum allowable times a tagged field may appear 
within each MARC record. This table is indexed 
by the field index obtained from the table 'TAGS'. 

MAXCNT This is an indexable byte table whose entries indi- 
cate the maximum allowable times a tagged field may 
appear within each MARC record. This table is 
indexed by the field index obtained from the table 
'TAGS' . 

AL This is an indexable byte table of valid subfield 

codes that may be used for a particular field. This 
table contains 30 subtables, one of which is associated 
with each valid field. The first entry of each sub- 
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table ir, the number of byte entries for this subtable. 

The remaining entries are the valid subfield codes. j 

The correct subtable is located by first retrieving 1 

the byte displacement from the table 'SFLD' for a | 

particular field. This is then used as an index to | 

point to the correct subtable in the table 'AL'. The J 
program 'NDX123' uses this subtable to verify the 

subfield indicators. The table 'AL' is used with | 
the following sequence of instructions : 

LB,R3 SFLD,R6 pick up the byte 

displacement using 

tag as an index I 

point to the 

appropriate sub- J 
table of subfield 1 
Al ,R3 AL codes 

BAL,R7 NDX123 go check for a 

valid subfield code I 

where R6 equals the field index obtained from the I 
table 'TAGS' for this field. 

NL This is an indexable byte table of valid indicators 
that may be used for a particular field. This table 
contains 15 sub-tables, one of which is associated 
with each valid field. The first entry of each sub- 
table is the number of byte entries for this sub- 
table. The remaining entries are the valid indicators. 
The correct sub-table is located by first retrieving 
the byte displacement from either the table 'INDl' 

or 'IND2' for a particular field. This is then used I 

as an index to point to the correct sub-table within 

the table 'NL'. The program 'NDX123' uses this sub- . 

table to verify the indicators. The table 'NL' 

requires the following sequence of instructions: 

LB,R3 IND1,R6 Pick up byte | 

displacement using 
tag as index 

AI,R3 NL point to the 

appropriate sub- 
table of indicators 

BAL,R7 NDX12 3 go check for a 

valid indicator 

where R6 equals the field index obtained from the table 
'TAGS' for this field. 

LNGLIST This is a word table of valid language codes. The 

language code from the MARC record is checked sequen- 
tially against the entries in this table until a 
match is found. The index that was used to verify 
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Iho MARC lan^^uap;e code is then used in the OCLC 
hi bl Lographi record instead of the characters. 
The table ordered so that the most frequently 
used lanpuage is found first. 

CP LIST This is a half-word table of valid country of publi- 
cation codes. If the work was published in the United 
States, Canada, Russia, or the United Kingdom, this 
table contains the mnemonic code for the state, pro- 
vince, or other subdivision. The country of publi- 
cation code from the MARC record is checked sequen- 
tially against the entries in this table until a 
match is found., The index used to find the match is 
then used in the OCLC bibliographic record instead 
of the characters. 
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APPENDIX A 



OPERATING REQUIREMENTS 

1. Computer - Xerox Sigma 5 

2. ^/Q Devices - 2 9 track tape drives, line printer, 

card reader/punch 

3. Operating System - OBM 

4. Execution Time - depends upon number of records to 

be added; approximately 4 5 minutes 
for 3S00 records. 

5. Run Schedule - weekly 

6 . Job Control Language 

!JOB ONLINE, MDBUPD 
!IMG002A El 
IRADEDIT 
.'CLEAR D2 

:ALLOT (FILE, D2, RESULTS), (FSI,8950), (FOR,C) 

5ASSI0N (M:SO,CP), (TRIES, 100) 

! MDBUPD 

1IMG00 2A Ml 

!STD (LL,0) 

! RADEDIT 

tCOPY ( FILE, D2 , RESULTS ) , (OUT,LO) , VFC 

:COPY (FILE, D2, RESULTS), (OUT,LO),VEC 

!STD (LL,LP) 

!STD (BI,TO) , (B0,0) 

!COPY BI, 1000 

SFI TO, BACK 

! RADEDIT 

:COPY (FILE, D2 , RESULTS), (OUT, TO) 

!WECT^ TO, 2 

!UNL TO 

.'JOB IDLE, 

IIMG002A CCR 

!FIN 
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APPENDIX B 
OPERATING CHARACTERISTICS 
1. CONSOLE MESSAGES 

! MES — IF A MARC WEEKLY TAPE IS NOT TO BE ADDED 
!! PAU — TO THE DATA BASE, THEN ABORT THIS JOB NOW. 

RESPONSE: ACTION: 

'X' Abort the job 

'C' Continue to add the MARC tape 

! ! PAU — READY CARD PUNC^I * 
RESPONSE: 'C - New Line 

MOUNT OUTPUT ON 0 81 

RESPONSE: 1) Mount tape as directed — ring in 
2) 'C - New Line 

MOUNT WEEKLY ON 080 

RESPONSE: 1) Mount tape as directed — no ring 
2) 'C - New Line 

If a new deferred tape is to be started, set all Sense 
Switches to '1' and the following message will appear 
on the console : 

RESET SENSE SWITCHES 
BEGIN WAIT 

RESPONSE: ACTION: 

'X' Abort the job 

'NEW' Start a new deferred tape 

DISMOUNT WEEKLY FROM 0 80 
RESPONSE: 1) Dismount tape as directed 
2) 'C - New Line 

! MES — MOUNT RESULTS TAPE ON TO 
RESPONSE: 1) Mount tape as directed — ring in 
2) 'C - New Line 

! PAU — VERIFY RESULTS TAPE MOUNTED ON TO, RING IN * 
RESPONSE: 'C - New Line 



! PAU -- DISMOUNT ALL TAPES * 

RESPONSE: 1) Dismount tapes as directed - remove the rings 
2) 'C - New Line 
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PROGRAMMED ABNORMAL COMPLETION 

- MDBUPD will terminate abnormally via a CAL1,9 3 
instruction under the following conditions. The message 
printed out to signal the abort is included in each case 



MESSAGE 



REASON 



* ERROR READING MASTER 
DATA BASE* 



four possible reasons: 

1. Invalid logical file or 

block no. 

2. Permanent I/O error 
. Invalid Index 

End-of-file delimiter read 



* ERROR REPLACING MASTER 
DB RECORD' 



'ERROR DELETING MASTER 
DB RECORD' 



'ERROR ADDING MASTER 
DB RECORD' 



three possible reasons: 

1. OCLC index entry found 

occupied 

2. Could not replace Bib. record 

3. Could not replace an index 

three possible reasons: 

1. Invalid index 

2. Permanent I/O error 

3. End-of-file delimiter read 

three possible reasons : 

1. OCLC index entry found occupied 

2. Could not add Bib. record 

3. Could not add an index 



DIAGNOSTICS 

MESSAGE 

NON-NUMERIC X 
POSITION X ' 



in 



LRECL ( ) DOES NOT 
EQUAL PRECL ( ) 

ILLEGAL CHARACTER X ' ' 
IN POSITION 



BADDR INCORRECT 
LENGTH 

FIELD TERMINATOR 

MISSING IN POSITION 



REASON 

There was an error in converting 
from ASCII to Binary 

Record length does not equal 
length of actual data read 

Three possible reasons: 

1. Illegal encoding level 

2. Bytes 18-2 3 of the MARC 

leader are not all blank 
or of the form ' 4500 ' . 

3. Bytes 6-11 of the MARC leader 

are not of the form 'AM 22' 

MODULO 12 of the Base address 
does not equal 1 

Field terminator is missing at 
the end of the directory 
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MESSAGE 

RECORD TERMINATOR MISSING 
IN POSITION 

ILLEGAL TAG IN POSITION _ 
TOO MANY FIELDS 



MASTER RECORD MISSING ~ 
CANNOT DELETE 



MASTER RECORD PRESENT ~ 
CANNOT ADD 



MASTER RECORD MISSING ~ 
STATUS CHANGED TO NEW 



001 FIELD IS NOT FIRST 



001 FIELD INCORRECT LENGTH 



NON-MARC CHARACTER 
X ' 'IN POSITION 
( FIELD) 

NON-NUMERIC IN LC CARD 
NUMBER 

008 FIELD IS NOT SECOND 



008 FIELD INCORRECT LENGTH 



REASON 

Record terminator is missing 
at the end of the record 

Two possible reasons : 
1. Tag is too big 
7. Tag is not in table of 
legal tags 

There are more than 50 fields 
in the record 

Record status equals 'D' 
but there is not master 
record to delete 

This record is already on 
the master data base file, 
log it as a duplicate 

If the status of the record 
is not 'N' and no existing 
record was found, the status 
is changed to 'N ' . 

The 001 field must be the 
first field in the record 

The 001 field must be at 
least 13 bytes and not 
more than 30 bytes 

An Invalid character was 
returned when converting 
from ASCII to EBCDIC 

The LC card number must 
be all numeric 

The 008 field must be the 
second field in the record 

The 008 field must be HI 
bytes including the field 
terminator 
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MESSAGE 

INVALID DATA IN 
ELEMENT ' 'OF 
008 FIELD 

RECORD HAS FEWER 
THAN 3 FIELDS 

FIELD IS TOO SHORT 



FIELD IS SHORTER THAN 
EXPECTED 



INVALID FIRST INDICATOR 
X • 'IN POSITION ' ' 
( FIELD) 



INVALID SECOND INDICATOR 
X ' 'IN POSITION ' ' 
( FIELD) 



SUBFIELD DELIMITER IS NOT 

FIRST IN POSITION 

( FIELD) 



FIELD TERMINATOR 
MISSING IN POSITION 
( FIELD) 

ILLEGAL SUBFIELD CODE 
X ' 'IN POSITION... . 
( FIELD) 



FIELD OR REC'D TERMINA 
TOR END'D IN POSITION 
BEFORE END OF 

FIELD 



OBSOLETE TAG 
CHANGED TO . .. 



REASON 

The 008 field of the 
MARC record contains 
invalid data 

Every record must have 
at least 3 fields 

Every field must be 
at least 5 bytes long 

The field is shorter 
than minimum length 
required for that field 

The first indicator 
for this field is not 
one of the valid entries 
in the table 'INDl' . 

The second indicator for 
this field is not one 
of the valid entries in 
the table 'IND2' . 

Each data element in 
a field must begin with 
a subfield delimiter 
(X'FC!) 

If the field te-rminator 
(X 'FD') is missing, pro- 
vide one. 

The subfield code is 
not one of the valid 
entries for this field 
in the table 'SFLD' 

The field terminator 
(X 'FD') or the record 
terminator (X 'FO 
are encountered before 
the actual end of field 

The 652 field is obso- 
lete and will be changed 
to a 651. The 750 
field is obsolete and will 
be changed to a 710. 
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MESSAGE 



REASON 



$a SUBFIELD IS NOT 
FIRST IN FIELD 



CONTKNTS* or ObO FlLi.P 
CAN'T BE PARSED 



The first subfield for 
every field must be a 
$a subfield 

The first indicator of 
the 0 50 (LC call number) 
field is not equal to 
'1' (the book is in LC) , 
but the call number is 
not valid. 



ILLEGAL STATUS CHARACTER 
X ' ' CHANGED TO 'N' 



ENCODING LEVEL CHANGED 
TO 'E' 



The status of the MARC 
record is not one of 
the valid codes (D,N,C,P) 
so it is changed to 'N*. 

The encoding level 
changed to 'E' on every 
record that has an error 
and is dumped to the 
'RESULTS' area. 



ENCODING LEVEL CHANGED 
TO 'W 



The encoding level is 
changed to 'W* on every 
record that has a warn-- 
ing message associated 
with it . 



FIELD OCCURS 

TIMES 



The field occurs less * 
than the minimum or more 
than the maximum number 
of allowable times as 
indicated in the tables 
'MINCNT' and 'MAXCNT' 



Parameter Cards Required - none 



Example of Output - next page 
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APPENDIX C 
nrTAILED DESCRIPTION OF INTERNAL 
SUBROUTINES 
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: CBS 1234 



This routine is used to compare bytes for equal. Upon 
entry to this routine, Rl has the number of bytes to be checked, 
R2 has the byte address of the record, R3 has the byte address 
of the field to be checked. R7 is the link register. At exit, 
R2 is pointing to the next byte of the record. If the two fields 
are equal, the condition is set to zero. 



This routine is used to translate a field to EBCDIC and 
hexadecimal and move it to output buffers. The output buffer for 
the EBCDIC translation is called 'TXTFLD'; for the hexadecimal 
translation, it is called 'HEXFLD'. The characters are converted 
and moved 32 bytes at a time. The link register is R9 . Upon entry, 
R2 has the byte address of the field to be translated, and R3 has 
the length of the field. 



SEARCHER ^ ^. , 

This routine in used to check the access keys for a particular 
MARC record against the existing access keys for the other bibli- 
ographic records. Before branching to this routine, an FPT is set 
up in the following manner: 

SCHFPT DATA 0,0,0, SCHWORK,OCL NUMBER 

Where the first word is for the completion status and function 
code; the second word is the logical file number; the third word is 
either the title key or the author -title key; the fourth word is the 
word address of the work area; the fifth word is the OCLC number. 

The link register to this routine is R5. A description of the 
processes of this routine are given in Section IV - - FUNCTIONS. 



This routine well cause a troublesome record to be copied onto 
the deferred tape. The routine picks up the beginning address of the 
record from the location 'RECORG' and picks up the record length from 
the location 'RECLN'. The routine then sets up a 'copy' FPT and 
issues the copy command. 



This routine causes the error message to be logged. R9 is the 
link register to this routine. R8 has the address of the error 
message to be used. This routine sets up the required parameters 
and links to the external sub-routine ,' LOGERR ' . 



FLDWAR ^ . 

This routine causes the wcwning messages to be logged. R9 is 
the link register to this routine. R8 is set with the addrfess of the 
warning message to be used. This routine sets up the required 
parameters and links to the external sub-routine, 'LOGWAR'. 
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ADDITIONAL SUBROUTINE DOCUMENTATION 
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I 



VIII. 15 



PROGRAM- MDBUPD 
SUBROUTINE': CASES 



FUNCTIONS 

The pxternal subroutine 'CASEB' is used to convert 
ASCII data to EBCDIC. The address of the parameters iiee 
for this subroutine is passed in R8. 
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PROGRAM: MDBUPD 
SUBROUTINE: CASES 



II. 



SOFTWARE INTERFACE 



A. 



Linkage 



LI,R8 
BAL,R7 



CASEBF 
CASES 



S. 



Parameter List Description 



CASES F RES 1 



RES 1 
RES 1 
RES 1 



number of bytes to be converted 
beginning address of data 
beginning address of storage area 
completion status 



C. Return Codes 

The status of the convert operation is returned in- 
the fourth word of the parameter list. 

STATUS = X' 80000000' - Normal completion; all characters 

were legal 
= X'COOIOOOO' - Abnormal completion 

D. Other Entry Points - none 

E. OCLC Subroutines Referenced - none 

F. OCLC Procedures Referenced - none 

III. DESCRIPTION OF SPECIAL STORAGE AREAS, SWITCHES, AND TASLES 



The conversion from ASCII to ESCDIC is accomplished with 
this one large table. Using the ASCII value of the character 
as an index, the corresponding ESCDIC value is retrieved 
from this table. If the corresponding table entry is a '0', 
the character is considered illegal. 



ASESTSL 
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PROCKAM: MDDUPD 
SUBROUTINE: CASBI 



FUNCTIONS 

The external subroutine CASBI is used to convert 
numeric data which is in ASCII format to Binary format. 
The ASCII character is first checked to be numeric (betwe 
the limits of X'30' and X'39'), and is then converted to 
binary . 
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PROGRAM: MDBUPD 
SUBROUTINE: CASBI 



SOFTWARE INTERFACE 

A. I,inkap;e 

LI,R8 CASBI5 
BAL,R7 CASBI 

B. Parameter List Description 

The address of the three word parameter list is passed 
to this subroutine in R8 . 

RES 1 number of bvtes to be converted 

RES 1 beginning address of field to be converted 

RES 1 completion status 

C. Return Codes 

The status of the convert operation is returned in 
the third word of the parameter list. 

STATUS = X| 80000000' Normal completion 

= X'COOIOOOO* Abnormal completion; character 
to be converted is not numeric 

D. Other Entry Points 

CEBBI - This entry point converts numeric data in 
EBCDIC format to Binary format. 

E. OCLC Subroutines Referenced - none 

F. OCLC Procedures Referenced - none 
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PROGRAM: MDBUPD 
SUBROUTINE: MDBUPDLG 



I. FUNCTIONS 

The external subroutine 'MDBUPDLG' is used as the 
]ogginp. routine for the program MDBUPD only. MDBUPDLb is a 
propram of subroutines ar, follows: 



Name of subroutine 


Function 


LObMoGi 


Type arlQ lOg a 

text message. 


LOGTEXT 


log a xcxx message 


LOGERR 


log a message with the 
preface 'ERROR' ^ 


T n r*i.i A D 
LUbWAK 


1 cr ^ fno c c ^ <T A i*? t 't'V^ 't'V^ ^ 
a. nicooclgc WJ.LI1 LIIC 

preface 'WARNING' 


LOGADD 


log the LC card number 

allU LIlC W\J1U riUL/LjL/ 


LOGREP 


log the LC card number 
and the word 'REPLACED' 


LOGDEL 


log the LC card number 
and the word 'DELETED' 


LOGREJ 


lo^ the LC card number 
and the word 'REJECTED' 


LOGIGN 


log the LC card number 
and the word 'IGNORED' 


LOGPAGF 


write the previous line 
and supply the format 
control character to 
eject the page 


LOGDEF 


log the LC card number 
and the word 'DEFERRED' 


LOGDUMP 


log the message to be 
listed on the DO device 
(teletype) 


LOGPUNCH 


log the message to be 
listed on the SO device 
(card punch) 



MDBUPDLG begins with an indexable branch table which branches 
to one of these routines. When a message is 'Hogged', it is written 
on the RAD area assigned by MDBUPD. The RAD file will later be 
used to print copies of the messages on the appropriate devices. 



VIII .'.^0 



PROGRAM: MDBUPD 
SUBROUTINE : MDBUPDLG 



oftwakl: inti:kfacf; 

logtext equ mdbupdlg + 1 

li,r8 msgnparns 
bal,r7 logtext 

B. Parameter List Df^scription 

R8 ir, sot up with the address of the parameter list 
required to format the message. Each parameter list 
must he .it loast two v^/ords long. Every word except 
the lacA word is of the format: 

(JLN, 8, 2U FC,BA (message) 

VC- Function Codn Purpose 

1 single message is to be logged 

2 message is to be converted to 

hexadecimal before being logged 

3 message is to be converted to 

EBCDIC before being logged 

The last word of the parameter list must be a •O' 
to indicate to MDBUPDLG that the end of the parameter 
list har !^cen reached. For additional documentation and 
examples, see the APPENDIX, Section E, under the pro- 
cedure description for ^MSG' . 

C. Return Codes , 

No completion cod'-S are set. The return is made 
l>ack to the calling program through R7. 

D. Other Entry Points 

None 

E. OCLC Subroutines Referenced 

$MBS - - Move Byte String 
(described on page VIII,28) 

CBIEB - ' Convert Binary to EBCDIC 
(<i(\scribed on page VIll.U9) 

F. OC\,C Procedures Referenced 

MOTH'' 
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PROGRAM: MDBUPD 
SUBROUTINE : MDBUPDLG 



III. DESCRIPTION OF SPECIAL STORAGE AREAS, SWITCHES, AND TABLES 

Upon entry to MDBUPDLG, there is an indexable branch 
table of routines. This table effectively produces the same 
result as having separate entry points. A branch is taken 
from this table to the appropriate routine* 

IV. INTERNAL SUBROUTINE DESCRIPTION 

CBIHE12 - - This routine converts one byte in binary format 
to 2 digits in hexadecimal format. The link register to thi3 
routine is R7 . 

PURGLINE *This routine is used to test the status of the buffer, 
print the previous line if there is one, clear out the line 
image and re-set the buffer status. A buffer status of 
indicates that the buffer is ready to go. A status of 
indicates that the buffer is empty. A buffer status of anything 
else will cause the previous line to be written. The link 
register to this routine is R5. 
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PROGRAM: MDBUPD 
SUBROUTINE : OPENMARC 



FUNCTIONS 

The i^xLornal subroutines OPENMARC, CLOSE MARC, and 
KKADMAKi* ai^o ur,ed to perform the MARC tape input operation. 

Tlv^ fxlornal subroutine OPEN MARC sets up the parameters 
needed for' the subroutine TAPEIO (described on page VIII. 53). 

TAPEIO performs the operation of reading the MARC tape 
input. 

OPENMARC sets up the two function parameter tables (FPT*s) 
needed to perform this read operation. The first FPT is for 
the read operation itself; the second FPT is used to sense the 
device status, OPENMARC also sets up Rl with the address of 
a work area and R8 with the address of the parameters needed 
for TAPEIO. 

At its alternate entry point, READMARC , OPENMARC actually 
reads the record by means of the subroutine TAPEIO • READMARC 
exits with the length of the record in Rl and the byte address 
of the record in R2. The return to the calling program is 
made either 0,1, 2, or 3 instructions past the calling instruction 
depending upon whether the record read was a header label, a 
MARC record, a trailer label, or* the end of a particular file, 
respectively. 

At its alternate entry point, CLOSEMARC, OPENMARC sets 
up the tape for the next record. If there was an end of file, 
the tape is unloaded, otherwise CLOSEMARC causes TAPEIO to 
back space over the last record read. 
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SOFTWARE INTERFACE 

A . L Inkiip.!.' 

The (\jllinf^ sequonot^ for OPENMARC is as follows: 
LI,R8 X'80' device address needed for the FPT's 
BAL,R7 OPENMARC 

B. Parameter List Description 

None 

C. Return Codes 

None 

D. Other Entry Points 

READMARC 
CLOSEMARC 

E. OCLC Subroutines Referenced 

TAPEIO (Page VIII. 53) 

F. OCLC Procedures Referenced 

None 
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VIII. 24 SUBROUTINE: READMARC 



II. SOFTWARE INTERFACE 



I 
I 



A . Linkage 

The calling sequence for READMARC is as follows 



B. 



C. 



F. 



HAL,R7 

R 

B 

B 

Bal,R7 



READMARC 

File 1 header label 

File 2 data 

FiJe 3 trailer label 

CLOSEMARC done with that EOF 



Parameter List Description 

None 
Return Codes 

None 

Other Entry Points 
None 

OCLC Subroutines Referenced 

L09MSG (page vm.ig) 
LOGWAR (page VIII.19) 

OCLC Procedures Referenced 

None 



ERIC 
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SUBROUTINE ; CLOSEMARC 



SOFTWARE INTERFACE 

A. Linkage 

BAL,R7 CLOSEMARC 

B. Parameter List Description 

None 

C. Return Codes 

None 

D. Other Entry Points 

None 

E. OCLC Subroutines Referenced 

TAPETO (page VIII.53) 

F. OCLC Procedures Referenced 

None 
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PROGRAM: MDBUPD 
SUBROUTINE: PACK, UNPK 



FUNCTIONS 

These external subroutines are used to Pack and Unpack 
numeric data. The characters are first checked to be numeric 
and are then either packed or unpacked dopending on the 
entry point. 
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SUBROUTINE: PACK, U^^ 



II. SOFTWARE INTERFACE 

A . Linkage 

LI,R8 PACKPARM 
BAL,R7 PACK 

B. Parameter List Description 

The address of the 4-word parameter list is passed 
to these routines in R8. 

RES 1 byte address of field to be packed 

RES 1 number of bytes to convert 

RES 1 byte address of storage area 

RES 1 completion status 

C. Return Codes 

The status of the conversion is returned in the 
fourth word of the parameter list 

STATUS = X* 80000000* -Normal completion 

= X*C0010000* - Abnormal completion; character 

to be converted is non-numeric 

D. Other Entry Points 

UNPK - - This entry point is used to unpack data. 

The parameter list is the same as for PACK. 
The return code for a normal completion is 
the same. There is no abnormal completion. 

E. OCLC Subroutines Referenced 

NDX123 - This routine is used to check for valid 
numeric characters for the PACK routine. 
NDX12 3 is described more thoroughly on 
page 

F. OCLC Procedures Referenced - none 

III. DE*3CRIPTI0N OF SPECIAL STORAGE AREAS, SWITCHES, AND TABLES 

PTBL - This is a table of valid numeric characters for the 
PACK routine. 
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FUNCTIONS 

This external subroutine is used to move byte strings. 
If the address of the field to be copied and the address of 
the location for the output are not both word aligned, they 
are adjusted to compensate. $MBSS is used to move less than 
15 bytes. 
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SOFTWARE INTERFACE 

A. Linkage 

BAL,R7 $MBS 

B. Parameter List Description 

Enter with the number of bytes to be moved in Rl . 
The beginning byte address of the field must be R2 
The byte address of the location whe *e tho field ' to 
be moved must be in R3. 

C. Return Codes 

The return is made back to the calling program 
through R7 with no completion status posted. 

Other Entry Points 

$MBSS - This entry point is used when 14 bytes or less 
are ''•^ be moved. There is no check for the word align- 
ment of the addresses. 

E. OCLC Subroutines Referenced - none 

F. OCLC Procedures Referenced - none 
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SUBROUTINE- NDX12 3 



FUNCTIONS 

This external subroutine is used to search for a 
particular character (byte) in a list. The search is 
performed form the end of the list and the index used 
to find the character is returned to the calling program. 
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SUBROUTINE: NDX123 



SOFTWARE INTERFACE 

A. Linkage 

BAL,R7 NDX12 3 

B. Parameter List Descriution 

Enter with the byte to be searched for in R2 and 
the byte address of a list in R3. The Tirst entry of 
the list must be the number of entries in the list. 

C. Return Code 

There are no completion codes returned to the pro- 
gram. Return to the calling program is made through 
R7. The index used to find the character in the list 
is returned in Rl. Rl is if the character was not 

found. The search is performed from rip.ht to left. 

D. Other Entry Points - none 

E. OCLC Subroutines Referenced - none 

F. OCLC Procedures Referenced - none 
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FUNCTIONS 

The external subroutine 'ADDMAST' il; uced to add 
and delete records from the master data base. If the 
OCLC file entry is ncc occupied, the search keys 
are extracted for this record and the indexes are 
added to the index file. The record is also added to 
the data base. 

If the OCLC file entry is occupied, a check is made 
to determine if the subroutine 'DELTMAST' had been 
called. 'DELTMAST' is another entry point to the sub- 
routine 'ADDMAST' . If the OCLC file entry is occupied 
and 'DELTMAST' is not called, this constitutes an error 
and the OCLC file entry is returned and nothing is added. 

Another entry point to 'ADDMAST' is 'RADDMAST' which 
will re-add a bibliographic record and its indexes. 
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SOFTWARE INTERFACE 

A. Linkage 

LI,R8 ADDPARM 
BAL,R7 ADDMAST 



B, Parameter List Description 

RES 1 completion status 

RES 1 word address of the biblio.p;raphic record 
RES 1 WA (WORKAREA) 

RES 1 word address of OCLC file entry and indexes 
RES 1 WA( index) 



Where WORKAREA is a 312 word double word alinged 
workarea. The workarea is 313 words if it is not double 
word aligned. The fifth word is used onlv for DELTMAST 
and RADDMAST. 



C. Return Codes 



The status of the addition operation is returned in 
the first half-word of the parameter list, 

STATUS = X'8000' - Normal completion 

= X'COOO' - Abnormal completion; OC'-.C index 
found occupied, nothinp, has been 
added to the data base 

= X'COOl' - Abnormal completion/, could not 
add the Bib. record, no index 
were added to Ihe data base 

= X'COOl' + INDEX FILE NO,-- 

Abnormal completion; could not 

add an index, the Bib, record and/or 

other indexes were added 



D. Other Entry Points 

DELTMAST - This entry point is used to delete a 
record and its indexes. 



RADDMAST - This entry point is used to re-add a record 
and its indexes. 



£♦ OCLC Subroutines Referenced 



INDEXER - This external subroutine (described more 

fully elsewhere in this section) is used to 
set up the access keys tor a par'*"icular record. 



F. OCLC Procedures Referenced - none 
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FUNCTIONS 

LCNOOO breaks a call number into coim^oncntG to aid in 
the formatting of the call number. A code sot at the entry 
point determines the type of call numbe^r which has been 
input. At LCCNOOO, the code is set to ^ero; at LCCNOOOB, 
the code is set to four; at LCCNOOOD, the code is set 
to two; and at LCCNOOOT, the code is set to one. Upon 
entry to either LCCNOOO, LCCNOOOB, LCCNOOOD, or LCCNOOOT, 
R8 points to a parameter li^t which contains the byte address 
ot the input call number. The second word of thr parameter 
list is the byte address of a work area. 

LCCNOOO scans and interrogates the call number usinp a 
set of internal procedures. The components to be broken 
down by LCCNOOO are as follows: 

0 - A string of alphas, followed by a blank, which precedes 

the rest of the call number'. 

1 - Alpha portion of the Library of Congress class number. 

2 - Numeric portion of the Library of Congress class number. 

3 - Decimal portion of the Library of Conp.ress class number. 
U - Date type element that precedes the first Cutter. In 

reality this is any field preceded by a blank which 
precedes the first Cutter. 

5 - First Cutter. It must begin vjith a decimal followed 

by an alpha string and a numeric string. 

6 - Date type element that precedes the second Cutter. In 

reality this is any field preceded by a blank which 
precedes the second Cutter. 

7 - Second Cutter. It is preceded by a decimal if component 

6 is present; otherwise it immediately follows the first 
Cutter. The second Cutter is a numeric string followed 
by an alpha string. 
8-25U These components are variable in format. Bit 7 of 

the component number set to 1 indicates an element 

followed by a comma. 

Component 255 always marks the end of the call number in 
the work area. 

When an error is encountered in the format of the call 
number, the condition code is set and control is returned 
to CNVT. 

As each component of the caJJ. number is found, it is 
stored in the workarea preceded by its component number. 
VP en the end of the call number field i^; encountered, if all 
required components are present , control is returned normally. 



rkunAM: MDBUPD 
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SOFTWARE INTERFACE 
A. LINKAGE 

LI,R8 LCCNPARM 

BAL,R7 LCCNOOO (or LCCNOOOB, iXTMnO Ul) , nv LCCNOO.OT) 



PARAMETER LIST DESCRIPTION 
LCCNPARM DATA 
DATA 



BA(050 IJUL.D) or O'.IO FIELD IF 

pKi:si:MT 

BA(W0RKA]^'I:A) area WIU'.RE FORM/vTTED 
CALL NO. WILL V.i: RETURNED 



I 
I 



C. RETURN CODES 

LCCNOOO, LCCNOOOB, LCCNOOOD, f. LCCiJOOOT r.ct the cond.-ition code 
as follows: 

CCl - U = 0 NORMAL RETURN 

CC3 = 1 DEFAULT TO UNIT CARD 

CC4 = 1 BREAKDOWN WA3 UN:';UCCLSSrui. 

D. OTHER ENTRY POINTS 

LCCNOOOB 
LCCNOOOD 
LCCNOOOT 

E. OCLC SUBROUTINES REFERENCED - none; 

F. OCLC PROCEDURES REFERENCED - 



NEXT 

BACK 

SPAN 

POWER 

ANY 

SAVE 

MARK 

OPT 

ALPHA 

NUMER 

POINT 

BLANK 

TERMN 

COMMAJ 

BREAK 



Different name v^i.^uos for Llie 
s ame p r o c i? d u r e 



PROGRAM: MDBUPD 
SUBROUTINE: LCCNOOO 

* 

^^^^•3^ PROCEDURE: NEXT 

PROCEDURE DESCRIPTION 

PURPOSE: NEXT generates a BAL,R7 :IJXT where: NXT is an 
internal subroutine of LCCiIOOO 

FORMAT: NEXT No. operands are required 

EXAMPLE: NEXT 

+ BAL,R7 :NXT 



4 



PK0C1^\M: MDBUPD 
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PROCEDURE DESCRIPTION 



PURPOSE: 



BACK sets up a parameter value 
link via R7 to the internal 
If the value of AF(1) is less 



and provides a 
subroutine :BCK. 
than Lwo, a BAL,R7 



FORMAT; 



:BCK-1 is generated 
Rm and a BAL,R7 

BACK AF(1) 



If APd) is loaded into 
BCK is generated. 



EXAMPLE 1: 

Back up one character. 



BACK AL WHERE AL=1 

BAL,R7 :BCK+1 



EXAMPLE 2: 

Back up four characters 

BACK PO where PO=U 

LI ,R14 H 
BAL,R7 :BCK 



PROi'RAM: MDBUBD 
SUbJlOUTINE: LCCNOOO 
PROCEDURE: SPAN 



PROCEDURE DESCRIPTION 

PURPOSE: SPAN sets up a parameter value and links to 
internal subroutine :PWR-1 via Rv . R14 is 
loaded with the ai'gument field. Its range of 
values IS the table CHARVAL. 

FORMAT: SPAM AF(1) 

EXAMPLE: Scan to the next non-numeric character. 



SPAN NU where NU = char value for a 

numeric in CHARVAL 



♦ LI,m 2 

+ BAL,R7 :PWR -1 



proclDUiu;: power 
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PROCEDURE DESCRIPTIOM 

PURPOSE: POWER sets up a counter in R3 3 from AF(2) and 
a value in RIU from AF(1); then lin:-.'. to the internal 
subroutine :PWR. On return from :PWR, an unconditional 
branch is taken. The effective addrecn of the branch 2S 
determined by the value of AI( 3) and APIS). If AF(3) =3 
and AFC 5) =0 a B $+2 is generated. If /.F(3) ^0 and AF(.) -1, 
three instructions are generated: 

B $+2 
B $+3 

BAL,R7 :RST 

If AFC5) =1 an unconditional branch to APCU) is generated. 

FORMAT: POWER AF( 1) , AF(2 ) ,Ar(3 ) ,AF(»+ ) ,AP(r>) 

EXAMPLE: Scan to see if there is a blank in the next »+ 
characters. If so, branch to TU . If not, restore Rl 
and branch to TU . 

POWER BL,PO,NO,TU 
+ LI,R13 »+ 
+ LI.RIU 8 
+ BAL,R7 :PWR 
+ D $+2 
+ B $+3 
+ BAL,R7 :RST 
+ B T4 

EXAMPLE 2: Scan to see if there is a blank in the next 

four characters. If not, skip the branch to TU and continue 
with the next sequential instruction. If so, branch 
to TU. 

POWER BL,P0»YES,T4 
+ LI,R13 U 
+ LI,R1'+ 8 
+ BAL,R7 :PWR 
+ B $+2 
+ B T4 



viimo 



rKUCRAN: MDBUPD 
SUi'.ROUTINr:: LCCNOOO 
PROCEDURi: : ANY 



PROCEDURE DESCRIPTION 

PURPOSE: ANY compares the character value which is in R15 

to a table value or a combination of tabic values [Ar(l)3. 
The succeeding branch instructions are genur-aLcd on the 
basis of AF(2) which has the value 0 or ] and the pi^csence 
or absence of AF(U). The effective addi-css of the branch 
instruction i? AF(3). 

FORMAT: ANY AF(1), AF(2), AFO), AF(U) 

EXAMPLE: Is next cliaracter a period or a blank: 
AJ4Y PO/BL,NO,ABT 

+ CI, 15 12 
+ BAZ AST 

where PO = 

BL = 8 
NO = 1 

Is the value in R15 U or 8? If neither, branch to ABT, 
otherwise fall through to the next sequential instruction. 



I'llvUnAM: MDBUPP 
SUl.i^OUTl : I.CCNOOO 
yjj^^^^j^ riiOCLDUKi;: SAVE 



PROCEDURE DESCRIPTION 

PURPOSE: SAVE generates a STO,1 :SAVE instruction to save 

the pointer to the current location in the TEMP area. 

FORMAT: SAVE 

EXAMPLE : SAVE 

+ ST\iJ,Rl :SAVE 



♦ 



procka;;: mdrupp 
subrcumt;:];: i.ccnooo 
vi i i. 42 proceduk^: mark 



PROCEDURE DESCRIPTION 
PURPOSE : 



MARK sets up the component number and links to the 
routine :MRK which will move the component to 
WORK ARE A. 



FORMAT: 
EXAMPLE; 



+ 

+ 



MARK AF(1) 

MARK 1 
LI, 11* 1 
BAL,R7 :MRK 



Mark component #1 and move it to the WORKAREA 



IMIO •;„■«;*: MDBUPD 
SUIVMii- I'lfii;: I.^CNOOO 
VJII.143 PKUCi.Dl) '■;!;: OPT 



PROCEDURF. DESCRIPTION 

PURPOSE: OPT interrogates the ncx' -.oqucn I l.iT diardclcr 
value. If it is not equal to Ar(J) a branch 
is taken to $ + 2. If the characl-.)' value ir> 
equal to AF(1), a BAL,R7 :NXT ii. Liken. 

FORMAT: OPT AF( 1) 

EXAMPLE: Is the next character a blank. 11 r.o, look at 
following character. 



OPT BL 
+ CI, 15 8 

♦ BAZ $+2 

+ BAL,R7 :NXT 



rKOCi:i)UUl,: ALPHA 



VIll 



procedurt; description 



PURPOSE: ALPHA compares; the chciracter value i 
its name value chiftcd left one posili 
The shifted name value cqua]i; the alph 
value from the table CHARVAL, 71ie con 
tlie succeeding branc^i instruction arc 
depending on the value of AF(1) which 
and the presence pr absence of APO). 
absent, the effective address of the b 
If the branch is not taken, the next s 
instruction is execul.ed. If AP(3) In 
effective address of the generated bi'u 
If the branch is not taken, the next i 
a BAL,R7 : RST followed by an uncondit 
to AF(2) . 



n R15 to 
on (l-"*="-NAME) • 
a character 
ditions of 
generated 
may be 0 or 1 

If AF(3) is 
ranch is AF(2) . 
cquential 
present the 
nch is $+3. 
nr.: truction is 
ional branch 



Tliere are five alternate names that may be used 
to invoke this procedure. 

NUMER - its name value equals the numeric character 
value 

POINT - its name value equals the character value 
for a period 

BLANK - its ncme valuo equalr> the character value 
for a blank 

TERMN - its name value equals Llie character value 

for a field delimiter 
COMMA - its name value equals the character value 
for a comma 



FORMAT: 



Theee procedures ar^, used to interrogate the value 
of a character, 

ALPHA AF(1) , AF(2) , AFC 3) 



EXAMPLE 1: Is the character in question numeric. If not, 
declare an error. 



NUMER 
+ CI, 15 
+ BAZ 



NO,ABT 
2 

ABT 



where no = 0 

EXAMPLE 2: Is the character alpha. If it is skip around; 

if not restore Rl to previous character and branch 
to T8 





ALPHA 


NO, T8, REST 


+ 


CI. 15 


1 


+ 


BANZ 


$+3 


+ 


BAL,7 


: RST 


+ 


B 


T8 



where no = 0 and REST = 1 
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PROGKAM: mDBUPD 
SUBKOlITiNr: LCCNOOO 
PROOiiJURE: BKi;AK 



PROCEDURE DESCRIPTION 
PURPOSE : 

BREAK sets up a parameter value and links to the internal 
subroutine, :BRK. R14 is loaded with ATil) . Itr, j^ange of 
values is equal to the range of values in the table CHARVAL. 

FORMAT: BREAK AF(1) 



EXAMPLE : 



Scan to find the next numeric character. 



BREAK 



NU 



whore 
for a 



NU = CHAR, value 
numeric is CHAFVAL 



+ LI , 1'* 2 

+ BAL,R7 :BRK 
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PROGRAM: MDBUPD 
SUBROUTINE: INDEXER 



I. FUNCTIONS 

The external subroutine 'INDEXER' scan© the given biblio- 
graphic record. It returns a 6 - byte (left- justified) author- 
title access key in the third and fourth words of the workarea 
which is provided by the calling program. It also returns 
a 6 - byte ( left- justified) title-only access key in 'the 
first and second words of the workar oa. It also returns 
the 8 - byte OCLC semi-packed representation of the first 
12 characters of the LC card number in the fifth and sixth 
words of the work area. 

INDEXER also prepares and stores three pointers at word 
displacements 10,11, and 12 in the OCLC bibliographic record 
(see Bibliographic record format - page 14). The content of 
these pointers is as follows : 

1. First Pointer -- 

Bits 0 - rs : Byte length of first part of the 
author string (IXX field). 

Bits 16-31: Byte displacement to the first 
author substring from the end of the leader. 

2. Second Pointer — 

Bits 0-15: Byte length of the second part of the 
author string 

Bits 16-31: Byte displacement to the second author, 
string from the end of the leader. 

3. Third Pointer -- 

Bits 0 - ]5: Byte length of the title (245 field) 
string. 

Bits. 16 - 31: Byte displacement to th^ first character 
of the title string from the end of the leader* 
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PROGRAM: MDBUPD 

n UP ROUTINE: INDEXER 



SOFTWARE INTERFACE 
A. Linkage 



T T Rfi 
Lii. ) X\Q 




XRPAPMS 


RAT P7 




INDEXER 




Description 


RES 


1 


word address of the 






cell containing the word 






address of the record 


RES 


1 


WA( WORKAREA) 


where WORKAREA 


is 11+ 


words and <_ouble word aligned. 


The work area 


is set 


UD as folTov.'s: 


WKAREA 


RES 


0 


3111 


RES 


2 title access key 






returned here 


3 3 KEY 


REb 


2 author/title access 






key returned here 


LCCARONO 


RES 


2 LC card number 






returned here 


SCRATCH 


RES 


8 scratch area 



C. Return Codes 

If the title cannot be parsed, is missing, or appears 
after the 260 field, the title portion of the author/ 
title key will be 3 blanks, and the title only key 
will be 6 blanks. There is no returned status. 

D. Other Entry Points 

PULLKEYS - This entry is used when the access keys 
are to be set up and returned but the pointers are 
not to be prepared or stored. 

E. OCLC Subroutines Referenced 
None 

F. OCLC Procedures Referenced 
None 
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PKOCIRAM: MDBUPD 
SUBROUTINF: INDEXER 



III. DESCRIPTION OF SPECIAL STORAGE ARCAS , SWITCHES, 
AND TABLES 

A. Special Switches 
None 

B. Special Storage Areas 
None 



C. Special Tables 

ALLOWED — This is a byte table of characters 
values that are 'Permitted in the keys. If 
the byte is a x', it'is an allowed character. 
The table is indexed by the character itself. 



PROGKAM : MDBUPD 
SUBKOU'IMNE: CRIED 

VIII .1+9 



CBIEB converts variable-length biiun-'V fieldr^ to EBCDIC, 
user specifies what sign is to be r.ivcn to the result 
\fd what fill charactei- to be used m padding the field. 
?J?or conditions are encountered when there overflow 
Condition in the output field or when the output field is 
'n? laree enough to contain tlu- sign. Th. return code is 
posted in ^Hc first two bytcr, of the parameter l...t upon 
return . 



PROGRAM: MDBUPD 
SUBROUTINE: CBIEB 

VIII. 50 

SOFTWARE INTERFACE 

A. LINKAGE 

The calling sequence is 

LI,R8 CBPARMS 
BAL,R7 CBIEB 

B. PARAI-IETER LIST DESCRIPTION 

CBPARMS DATA BA( BINARY FIELD TO BE CONVERT^ilD) 

DATA,1 WIDTH, FILL,I'LUS, MINUS 

DATA BA( OUTPUT FIELD) 

C. RETURN CODES 

The return code is found in bytes 0 and 1 of CBPARMS. 

BYTEO - X'80' Normal completion 

BYTEl =-X'00' 

BYTEO = X'CO' ERROR 

BYTEl = X'Ol* NO ROOM IN FIELD FOR SIGN 

BYTEO = X'CO' ERROR 

BYTEl = X'02' FIELD OVERFLCW 

, OIHER ENTRY POINTS - none 

OCLC SUBROUTINES RETIRENCED - none 



OCLC PROCEDRURES REFERENCED - none 
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PROGRAM: MDBUPD 
SUBROUTINE: LOGMSG 



FUNCTIONS 

LOGMSG formats and prints a log entry for f 
record number which is selected for catalog card P^°^;^^^°" 
A log entry on the CNVT Log consists of the OCLC control 
numblr, the color code, and the holding ^'^y 
followed by a statistical code showing wnetner the recora 
was selected (SLD) or rejected (RJD) LOGMSG also prints 
diagnostic messages when required by CNVi . 



SUBROUTINE: LOGMSG 

VIII. 52 

cn rrWARE INTERFACE 
LINKAGE 

Control i? transferred from CHVT via a 
BAL,R7 LOGMSG 

This instruction must be immediately followed by the 
parameter list described ualov/. Upon entry to LOGMSG, R7 
points to the parameter list. 

^. PARAMETER LIST DESCRIPTION 

The following list of parameters must be passed to LOBMSG. 

GEN, 8, 2 '4 FUN,BA(i^SSAGE) 

DATA WA( UNPACKED LC CARD NUMBER) 

DATA WA( COLOR CODE) 

DATA WA(LIBPvARY CODE) 

Where tYc byte indicator 'FUN' may assume the following 
values : 

FUN - 0 Print message only, do no logging. 

= 1 Log as selected before printing a message. 

= 2 Log as missing before printing a message, 

= 3 Log as rejected before printing a message. 

= 15 Eject page when printing a message. 

Ho message will be pr" ted if BA(MESSAGE) is equal to zero. 

RETURN CODES - none 

OTilER ENTRY POINTS - none 
£• OCLC SUBROUTINES REFERENCED - none 
F. OCLC PROCEDURES REFERENCED - none 



SUBROUTINi:: TAPKIO 
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FUNCTION S 

TAPEIO is a general purpose input /output subroutine which 
performs the fcllor/ing functions depending on a function 
code passed from the calling program. 



TAPEIO sets up the FPT to be used in lOEX CAL2 from 
parameters passed by the calling program. If the function 
required does not involve data transfer (in the range of 
codes 3-9), the only parameters needed by TAPEIO are the 
function code, the unit address, and an event word. If 
data transfer is to be performed (codes 0,1,2), TAPEIO 
must also have the addroiis of a buffer and the length of the 
data to be read or written. Upon entry to TAPEIO, general 
register 1 should be pointing to a user-defined vck area 
on a double word boundary. 

If the function to be performed involves data transfer 
or is a WEOF, two function parameter tables (FPT's) are 
set up. The first FPT is for the operation requested; the 
second is used to sense the device status in the event the 
requested operation does not end normally. For non-data 
transfer functions, only one FPT is constructed. 

TAPEIO contains its own end action routine, STDEA. 
STDEA uses the Test Device (TDV) status returned by the lOEX 
CAL2 to determine the end act-* on required. If the I/O 
operation terminated normally, ::l.e first byte of the event word 
in the first FPT is s^t to X'80' and control is returned. 
If the operation ended abnormally, the TDV status is 
interrogated more closely to determine the exact result of 
the operation. 



FUNCTION CODE 



FUNCTION 



X'OO' 



01 
02 
03 
OH 
05 
06 
07 
08 
09 



READ 
WRITE 

READ REVERSE 
WEOF 

SKIP ONE RECORD FORWARD 
SKIP ONE RECORD BACKWARD 
SKIP ONE FILE FORWARD 
SKIP ONE FILE BACKWARD 
REWIND (ONLINE) 
UNLOAD 



A table of TDV status values and their meanings follows: 



SUBROUTINE r 



TAPriO 



VII r . 



TDV STATUS 



EXPLANATION 



0200 



NORMAL TERMINATION BEYOND END 
or TAPE 

NORMAL TERMINATION AT BEGINNING 
OF TAPE 

NORMAL TlRMINATIOH 
lOP ERROR 

MEMORY ADDRESS ERROR 
WRITE PROTECT VIOLATION 
END or FILE 
DATA OVERRUN 

NON-CORi;i;CTABLE READ ERROR 
TRAJslSHIsraON DATA ERROR 
TRANSMISSION MEMORY ERROR 



0400 



B87E 
OOOE 
0010 
2000 
lOOO 
8000 
0800 
0040 
0020 



A TDV status of 'B87E' initiates the return of a normal 
completion code (X'80') to the user. If tho r.tatus is '1000 *, 
an end of file indication irj returned. If the TDV status is 
•OOOE', '0010', or '2000', the error ic not attributed to the I/O 
device; and no retry is attempted. If the status is one of the 
last four iri^tho table, the retry count is interrogated. The 
retry count is arbitrarily r,et in TAPEIO to ten for data transfer 
operations (function codes 0-2) and WEOF (code 3) and is set to zero 
for non-data operations (codes 4-3). If the retry count for this 
operation in zero, an abnormal return code is posted, and control 
is returned to the calling program. If the retry count is greater 
than zero, retry procedures ai-e initiated based on the type of 
I/O function that was attempted. 

If the status is '0200' or '0400', a code is returned to 
indicate the position of the tape. 

If the operation vjas a READ and the error is correctable 
(TDV status of '8000', '0040', or '0020'), the second FPT is pulled 
from the work area and uned to sense the device. If the sense 
does not taJce, an unconditional backspace and retry are initiated; 
otherwise STDEA will alternately backspace, or forward space (de- 
pending on whether the READ was forv,'ard or reverse), sense, retry, 
and sense until either the retry count is zero or the I/O opera- 
tion has been performed. If th( retry count reaches zero before 
t-he operation has been terT.inate' normally, the condition code 
returned is the resu]jL-Df the las: retry. 

If the operation was a READ but the error was declared non- 
correctable (TDV status '0 800'), STDEA initiates an unconditional 
retry. It backspaces, or fon;ard spaces if the operation was 
^;EAD reverse, and attempts to READ again. The TDV status is 
interrogated after each retry of the READ. If the error status 
^ecomes correctable before the retry count is zero, STDEA will 
initiate sensing of the device and the correctable READ error 
procedure. In any case, retry continues until the operation is 
completed normally or the retry count reaches zero. If the 
rotry count becomes zero before the operation has terminated 
f'Ormally the condition code returneC is the result of the last retry. 



I 
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SUBROUTINE: TAPE 10 



If the operation was a WRITE or WEOF, STDEA automatically 
backspaces, senses, and attempts the operation again. This 
procedure continues until the I/O is complete or the retry 
count is zero. If the retry count reaches zero before the 
operation has been terminated normally, the condition code 
returned is the result of the last retry. 

At its alternate entry point, TAPEWAIT, TAPEIO checks 
for completion of an I/O operation performed by TAPEIO. If 
the event is not complete TAPEWAIT issues a CAL2,9 0 to wait 
for completion. When the event is posted complete, the 
status is interrogated. If the completion is normal (X'80'), 
control is returned to the return address plus one. If the 
completion is abnormal (X'CO') control is returned at the 
return address. In either case BYTEO of the event word is 
returned in bits 2U-31 of R8. 



PROGRAM: MDBUPD 
SUSKOUTINE: TAPEIO 



/ 



SOFTWARE INTERFACE 
A. LINKAGE 

The calling sequence for TAPEIO is as follows: 



LI,R1 
LI,R8 
BAL,R7 



WORKAREA 

FARMS 

TAPEIO 



Where WORKAREA is a 16-word sloraf^e are", aligned on 
a doubleword boundary. 



B. 



PARAMETER LIST DESCRIPTION 
For function codes 0, 1, 2 

WORD 0 



WORD 1 
WORD 2 
WORD 3 



FUNCTION 


DEVICE ADDW:3S ^ 


BA (BUFFER) 


BYTE COUNT 


^ EVENT STATUS 


7 



I 



For functions 3-9 
WORD 0 
aORD 1 



r 

FUNCTION 


DEVICE ADDRESS ^ 


EVENT STATUS 





C. RETURN CODES 

!<"0RMAL COMPLETION: EVENTWORD BYTE 0 = X'30' 

BYTE 1 = X'OO' 

ABNORMAL COMPLETION: EVENT WORD BYTE 0 = X'CO' 

BYTE-l = XX - CODE INDICATING 
NATURE OF ABNORMAL COMPLETION. 

«anin|^are^!s?ed belS/""^ co™pl3tion and their 
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i'KOGRAM: MDBUPD 
SUBROUTINE: TAPEIO 



rV ENT WORD 

:ooi 

C002 

COOA 
C009 
COO 8 
COO 3 
COO 7 

coot 

COOS 

COO 6 

COCO 
COOB 



TDV STATUS 



0200 



0400 

OGOE 
0C30 
2000 
1000 
8000 
0800 

0040 

0020 



MEANING 

NORMAL TERMINATION 
BEYOND END OF TAPE 
MARKER" 

NORMAL TERMINATION 
AT BEGIU-'NING OF TAPE 
I OP ERROR 

MEMORY ADDRESS ERROR 
WRITE PROTECT VIOLATION 
END or FILE 
DATA OVF.RRUN 
NON-COin<ECTABLE READ , 

ERROR 
TRANSMISSION DATA 

ERROR 
TRANSMISSION MT RY 

ERROR 
UNIT UNRECOGNIZED 
SOFTVARE ERROR 



For codes C000-C003 and C008-C00B, no retry has been 
attempted. For codes C004-C007, retry has been attempted only 
if the function was a data transfer or WEOF. 

D. OTHER ENTRY POINTS 

TAPEWAIT 

E. OCLC SUBROUTINES REFERENCED - none 
I F. OCLC PROCEDURES RBPH^JCED - none 



SUBROUTINE: TAl-i:iO 
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SOFTOARE INTERFACE (TAPEWAI T) 

A. LINKAGE 

LI,R8 FARMS 
BAL,R7 TAPEWAIT 

B. PARAMETER LIST DESCRIPTION 

same as for TAPE 10 

C. RETURN CODES: 

BYTE 0 of Ihc user pr-ovided EVENT V/ORD is returned in 
bits 24-31 of R8 

D. OTHER ENTRY POINTS - none 

E. OCLC 'SUBROUTINES REFERENCED - none 

F. OCLC PRCCEPURES REFERENCED - none 
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APPENDIX E 



ADDITIONAL PROCEDURE DOCUMENTATlnN 



V i 1 1 . 



'Kli'lKAM: MDBUPD 



PURPOSL: 

DTAbS establishes the parameter:, 'or- t lie ta^le 'TAGS' 
whicJi assigns an 'rdex to f-aeh tiei! \c u -od , or all the 
other tables. 

FORMAT: 

DTAr; AF(1) 

EXAMPLE: 



DTAH • 1 

DTAG 8 

DTAG 1 5 

+ DATA , 1 0 

+ DATA,1 1 index lo;. dot fielo 

+ DATA , 1 0 

+ DATA,1 "O 

+ DATA,1 0 

+ DATA ,1 0 

+ DATA , 1 0 

+ DATA , 1 0 

+ DATA,1 2 index ! or- no 8 field 



1/ 1 1 



■Rl ;KAM: 

'Rocr.DUKi: 



MI)!-UPD 
MSG, 



HEX 
MEN 



PROCEDURE DESCRTPTTON 



PURPOSE: 

MSG established the parameterK tor the external sub- 
routine 'MDBUPDLG'. The CNAMC value o; MSn is 1 and indi- 
cates to MDBUPDLG that a singHe messatn- i-.- to bo lopy.ed. 
There are three alternate names for MSG. 

HEX - has a CNAME equal to 2 and in-^.icator; lhat the message 
is to be converted to Hexadecimdl 

DEC - has a CNAME equal to 3 and indicator, l hal the message 
is to be converted to FBCTDTG. 

-MEND - has a CNAME equal to 0 and indicates the end (^f the 
parameter lint. 



FORMAT: 



MSG AFd) 



Example 1: 

MSG MSG71 

HEX ECHl 

MSG MSG72 
MEND 



+ GEN, 8, 24 

+ GEN, 8, 24 

+ GEN, 8, 24 

+ DATA 

Example 2 : 



1, BA (MSG71) 

2, BA (ECHl) 

1 , BA (MS^;7 2) 
0 



DEC ECV3 

MSG MSG75 

DEC nCV4 

MSG MSG76 
MEND 



+ GEN, 8, 24 

+ GEN, 8, 24 

+ GEN, 8, 24 

+ nr:N,8,?'i 

+ DATA 



, BA (ucv:o 
, HA (Mfu;?;,) 
, BA (i;rV4) 




V/M..LDATION r^ROCESSES PEKrOI^ED BY OCLC ON THK MARC RECORDS 



1. AIJ data nuj5-.t be correct ASCII data. 

2. The ctctua] length of ^he record must equal the record length 

in the leader. 

3. The Type of Record must be 'a* (lower case ASCII). 

U. Tho Bibliop^raphic Level must be 'm* (lov/cr case ASCII). 

5. 'BLANKS' (position 8-9 in the leader) must be blank. 

6. Thr Indicator Count mur^t be ?. 

7. Thj base address of tlic data must be a multiple of 12 (leader = 24, 

Directory = 12) . 

8. The Sub fie Id Code Count must be 2. 

9. Tlioi'e must be a field terminator (X'lE') ^t the end of the 

directory. 

10. There must be a record terminator (X'lD*) at the end of the 

record. 

11. Loader positions 18-19 must be all blank. 

12. Th(- Entry Map in the Leader must be all blank or be of the 

form '4500*. 

13. TiioTv can be no more than 50 fields in a record. 

14. Ilir value of the tag can not exceed 'S^O'. 

15. Tiic value of the tag min;t be in the following list of valid tags: 



001 


0 86 


410 


6 30 


008 


IOC 


411 


650 


015 


110 


440 


651 


020 


111 


490 


652 


025 


130 


500 


700 


OHO 


240 


501 


710 


041 


241 


502 


711 


043 


245 


504 


730 


050 


250 


50 5 


740 


Obi 


260 


520 


750 


050 


300 


600 


800 


0 70 


350 


610 


810 


082 


400 


611 


811 








840 



I 



VIII. G2 

Validation Processes (cont) Page Two 

16. The record is reject'jd if the LC cai"*d number is not all ' 

numeric. 

17. The Record Status must be one of the following: D (delete), 

NC (new), C (corrected), or P (full replacing CIP) . If 
it is not one of the above, the Record Status is changed 
to N (new) and a warning is logged. 

18. The Encoding Level must be one of the following: 1 (sublevel 1), 

8 (full replacing CIP), or blank (full level). 

19. The record is rejected if the 001 field is not the first 

field in the directory. 

20. The record is rejected if the 001 field is not at least 13 

characters or is more than 30 characters long. 

21* The record is rejected if the 008 field is not the second entry 
in the directory. 

22. The record is rejected if the length^f the 008 is not 41 

characters including the field terminator. 

23. The Type of Publication Date Code must be one of the following: 

s (date is known), c (concistc of two dates), n (date 

is unknown), r (previously published), m (multiple date), 

q (one or more digits are missing). 

2H. The Country of Publication Code must be in the list of 
valid codes. 

25. The Illustration Codes must be one of the following: 

a ( illustration) , b (maps), c (portraits), d (charts), 
e (plans), f (plates), g (music), h (facsimiles), 
i (coates of arms), ( genealogical tables), k (forms), 
1 (samples), m (phono disc), t! = blank (no illustrations). 

26. Elements 11-15 of the 00 8 field (Conference, Festscrift, 

Index, Main Entry, and Fiction Indicators) must be 
either 0 or 1. 

27. The Government Publication Indicator must be 0. 

28. The Form of Reproduction Code: must be one of the following: 

a (Microfilm), b (Microfiche), 
c.(Micropa&ue) , d (Large-print), 
IS = blank (not a reproduction). 

29. The Intellectual Level Code must be either *]* or IS = blank. 
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30. The Form of Content Codes must be one of the following: 

b (Bibliographies), c (Catalogi^), 

i (Indexes), a (,\bstraots), 

d (Dictionaries), e (Encyclopedias), 

r (Directories), y (Yearbooks), 

s (Statistics), h (Handbooks), 

p (Programmed Testbookn), or 

K = blank (not a specified form). 

31. The Language Code must be in the lir.t of valid language codes. 

32. The Cataloging Source Cdoe must be one of tha following- 

a (National Agricultural Library), 
b (National Library of Medicine), 
c. (Cooperative Cataloging), or 
16 =- blank (Library of Congress 

33. The Modified Record Indicator must be either d, s, x, or a 

blank. 

3^. The Biography Code must be one of the following: 
a '(Autobiography) , b (Individual), 

c (Collective), d (Contains biographical information), 

or K - blank (not biographical). 

35. The record is rejected if the directory has only 1 or 2 entries. 

36. Every field must be at least five characters long. 

37. The minimum byte length for the 020 field is IH. 

38. The minimum byte length for the 025 field is 10. 

39. The minimum byte length for the 040 and 043 fields is 12. 

40. The minimum byte length for the 041 field is 11. 
tfl. The minimum byte length for the 082 field is 6. 

42. The minimum byte length fur every other field (excluding 001, 

008, 020, 025, 040, 041, 043, and 082 fields) is 7. 

43. Check to see that fields 041, 050, 240, 241, 245, 260, 490, 

and 750 have a first indicator of 0 or 1. 

*f4. Check to see that fields 110, 111, 410 , 411, 505, 510 , 611, 

710, 711, 810, and 811 have a iivr.t indicator of 0, 1, or 2. 

45. Check to see that fields 100 , 40C, 600 , 700 , and 800 have a 
first indicator of 0, 1, 2, or 3. 
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U6. Check to see that the first indicator for every other field 
is a blank. 

47. Check to see that the second indicator for the 100, 110, 111, 

130, 400, 410, and 411 fields is a 0 or 1- 

48. Check to see that the second indicator for the 700, 710, 711, 

730, 740, and 750 fields is a 0 , 1 , or 2 • 

49. Check to see that the second indicate.^ for the 600, 610 , 611, 

630, 650 , 651, and 652 fields is a 0, 1, 2, 3, or 4. 

50. Check to see that the second indicator for every other field 

is a blcink. 

51. Every field must begin with a subfield delimiter (X'lF*). 

52. Every field must end with a field terminator (X*FDM. 

53. Verify that the subfield codes for the 041, 050 , 060, 070 , 

and 250 fields are either 'a* or 'b*. 

SM. Verify that the subfield codes for the 051, 245, 260 , and 300 
fields are either 'a*, *b', or *c*. 

55. Verify that the subfield codes for the 100 field are either 

•a' . 'b' , 'c* , , 'e' , 'k' , or 't^ 

56. Verify that the subfield codes for the 110 field are e^tlier 

a, b, e, k, or t. 

57. Verify that the subfield codes for the 111 field are either 

a, b, c, d, e, g, k, or t. 

58. Verify that the subfield codes for the 130 field are either 

a or t. 

59. Verify that the subfield codes for the 400 and 800 fields 

are either a, b, c, d, e, k, t, or v. 

60. Verify that the subfield codes for the 410 and 810 fields are 

either a, b^ e, k, t, or v. 

61. Verify that the subfield codes for the 411 and 811 fields are 

either b, c, d^ e^ g^ k, t, or v. 

62. Verify that the subfield codes for the 440 and 840 fields are 

either a or v. 

6 3. Verify that the subfield codes for the 600 field are either 
a, b, c, d, e, k, t, x, y, or z. 

84. Verify that the subfield codes for the 610 field are either 
a, b, e, k, t, X, y , or z. 

65. Verify that the subfield codes are the 611 field are either 
a> b$ c, d, e, g, k, t, X, y, or x. 
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66. Verify that the subfield codec for the 6 30 field arc either 

a, t , X, y , or 2. 

67. Verify that the subfield codes for the 650 and 651 fields are 

either a, b, x, y, or z. 

68. Verify that the subfield codes for the 652 field are either 

3iy X, y , or z . 

69. Verify that the subfield codes for the 700 field are either 

a, b, c, d, e, k, t, oru. 

70. Verify that the subfield codes foi^ the 710 field are cither 

a, b , e , k , t , or u. 

71. Verify that the subfield codes for the 711 field are either 

a, b, c, d, e, g, k, t, or u. 

72. Verify that the subfield codes for th^ 7 30 field are either 

a, t, or u. 

73. Verify that the subfield codes are 'a' for following fields! 



(015 


0U3 


350 


504) 


(020 


082 


U90 


505) 


(025 


0 86 


500 


520^ 


(OUO 


2U0 


501 






2U1 


502 


7 50) 



1H. A field terminator must come directly before the record 
terminator. 

75, Verify that the 2U5 and 260 fields are present in every record. 

76. Verify that the 025 , 255, and all the fields from UOO to 8H0 

do not occur more than 25 S times in one record. 

77- V^.rif> that there are no more than two 0 50 fields in each 
•i, r%i^cord. 

78. /erify that all the other fields (all fields from 001 to 350 
except 025 , 050 , aiid 255) do not occur more than once 
in each record. 
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